home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / tutorials / geometer / Theorems / art / perspective.T < prev    next >
Encoding:
Text File  |  1994-08-02  |  1.2 KB  |  36 lines
  1. .geometry "version 0.1";
  2. v1 = .free(-0.822161, 0.663475, "Vp1");
  3. v2 = .free(0.893297, 0.660739, "Vp2");
  4. v3 = .free(0.121751, -0.781122, "Vp3");
  5. v4 = .free(0.010782, 0.163073, "Corner");
  6. l1 = .l.vv(v1, v4, .invisible, .longline);
  7. l3 = .l.vv(v2, v4, .invisible, .longline);
  8. l5 = .l.vv(v4, v3, .invisible, .longline);
  9. v5 = .vonl(l1, -0.364876, 0.388755, .plus);
  10. l6 = .l.vv(v3, v5, .invisible, .longline);
  11. v6 = .vonl(l5, 0.064367, -0.29286, .plus);
  12. l7 = .l.vv(v1, v6, .invisible, .longline);
  13. v7 = .v.ll(l6, l6);
  14. v8 = .v.ll(l6, l7);
  15. l8 = .l.vv(v8, v6, .red);
  16. l9 = .l.vv(v6, v4, .red);
  17. l10 = .l.vv(v4, v5, .red);
  18. l11 = .l.vv(v5, v8, .red);
  19. v9 = .vonl(l3, 0.524754, 0.452911, .plus);
  20. l12 = .l.vv(v9, v9, .longline);
  21. l13 = .l.vv(v9, v1, .invisible, .longline);
  22. l14 = .l.vv(v5, v2, .invisible, .longline);
  23. l15 = .l.vv(v3, v9, .invisible, .longline);
  24. l16 = .l.vv(v6, v2, .invisible, .longline);
  25. v10 = .v.ll(l14, l13);
  26. v11 = .v.ll(l15, l16);
  27. l17 = .l.vv(v6, v11, .red);
  28. l18 = .l.vv(v11, v9, .red);
  29. l19 = .l.vv(v9, v4, .red);
  30. l20 = .l.vv(v5, v10, .red);
  31. l21 = .l.vv(v10, v9, .red);
  32. .text("Perspective");
  33. .text("");
  34. .text("This illustrates the classic construction of a cube in perspective.");
  35. .text("The points Vp1, Vp2, and Vp3 are the vanishing points.");
  36.